しょう。 もちろん、 0 になる と ゲーム 終了です が、 少しで も 死亡 
すると 故障 発 ± 率が 増加 します 0 
- TORPedo — トー ピード 

光子 魚雷の 残り 数です。 ゲーム 開始 時と ベースで 補給した とき 
は 2 晩になります。 強力な 武器です から、 有効に 使っ てくだ さい。 

ゲームの 制限時間で 単位は 宇宙 時間です。 もちろん、 これ も マ 
イ ナスになる と 惑星 連盟は ク リム ゾンに 占領され、 ゲーム 終了に 
なって しまいます。  っ 

- KUmzon —— クリムゾン 

今、 銀河系 内に いる クリムゾンの 数です。 当然 0 になれば、 ェ 
ン ター ブライズの 勝^です。 

•BASE — i-S 

銀河系 内に ある ベースの 数を 示して います。 各 ベースでは 一回 ' 
だけし 力備 給が 受け られ ません。 

•  CONDinON —— コンデ イシ ヨン'  .， 

現在の ェ ン タープライ ズの 状況を 示 しています。 通常は“  GREE 
N" …… グリーン、 戦闘 状態では "RED" …… レツ ド、 ェネルギー 
が 不足 してく ると" YELLOW" …… イェロー、 ベースの ある クオ ド 
ラント 内に いる ど‘ BLUE" …… ブル， に それぞれ 変化し ます。 
S1SH0RT-  RANGE  SENSOR …… ショート レ ンジセ ンサー 
二れ は、 军, ン ター プライ;^* いる グオ ドラン ト 内の 様子を！® 

に _ する: 3 マンドです。 クオ ド ラントは 8X8 の セクタ （座標） 

に 区切られ、 ェンタープライズは "E" 、 クリムゾンは“  K" 、 
ペースは “B" 、 星は“*" で 示されます 0 
[DBREAK  DOWN  DISPUY …… ブレイク ダウン デ イス プレイ 
現在、 故障して いる 装置の 修理に 必要な 時間を 表示し ます。 例 
え ば、 "PHASER  DOWN  (1 .20) " と 表示され たら、 フ ェーザー 
が 直る までに あと 1. 2 宇宙 時 M かかる という ことを 示します。 イ 
ンパ ルス ェンジンと ワープ ェンジンは 温度 も 表示され ます。 
[SIMPLUSE  ENGINE …… イン ノ 、•ル^ 6 ン ジン 
この ェンジンは、 クオ ドラン ト 内を 移動 するとき 等の セクタ 単 

位の 小 移動に 使用し ます。  3 

インパルス ェンジンを 起動す ると、 "Course?” と 聞いて きま 
すので、 進みたい 方向を 角度で 入力 します。 この 角度は 上を 0 度 
として 時計回りに 360 度です。 次に、 "Sector  ? " と閫 いてき ま 
す。 これには 移動 距離を 入力し ますが、 この 単位は セクタです。 
例えば、 クオ ドラン ト 内の 端から 端まで 進みたい ときには 7 を 入 
力して ください。 クオ ド ラントから はみ出 しまったと きには、 
隣り の クオ ド ラントに 行きます が、 クオ ド ラント W は 少し 難れ て 
いるので 時間を 消 資します。 ですから、 他の クオ ド ラントへ 移動 
する には ワープ ェンジン を 使用 した 方が 良いで しよう。 

進行 方 行に ク リム ゾンや 星が あると ぶつかっ で います。 ま 
た、 ベース | こ. 卜*. ツ キングす るた めには、 この 方法で 笨ン ター ブラ 
イ ズを ベースの いる セクタ に 移動して ぐ ださい。 

イン ノ マルス ェン ジ ンは 使用す るた びに 温® が 上昇し、 30CTC 以上 
になる と オー ハ*— ヒート して 使用 不能に なり ます。 

[2WARP  ENGINE …… ワープ ェン q ン 
こ のワ: ープ X ンジ ンは 銀^ 内 を クオ ド ラント 単位で 高速に 移 
動す る こと がで きます。 ワープ ェ ン ジン を^) すると、 "Course?" 

と 聞いて く るの f v イ ンパル ス年ン ジンと 同様に 角度を 入力し ま 
す。 次に ''Quod  ? " と 聞いて くるので、 移動したい クオ ドラン 
卜の 数を 入力し ます。 例えば、 9CT に 1と 入力ず％ と I つ 右の ク 
オ ドラン トに 行く こと になります。 

最後に "Speed  ?" と 聞いて きます。 これは ワープ 速度で、,, ネ 


ビー ド カ SI ければ 消费 時間が 少なく て 済みます が、 代わり に エネ 
ルギ ーの 消 費置 が增^ します。 この 範囲は 丨 ~  15(7) 間です が、 通 
常は 2  ~  4 の 間で 十分です。 

ス ピー ド カし 定の 場合は 速く へ 行つ て も、 近く へ 行って も 所要 
時間は 同じです 0 

この  1 —プ エンジン も 使用 頻度に よって 温度が J^U300 で以 
上になる と 使用 不能になります。 しかし、 ワープ エンジン も イン 
パルス エンジン も 時間と 共に 冷え ますし、 べ^- ス人ド ッ キングす 
ると たいていの 場合 使用 可 育 I になり ます。 

囹 COMPUTER …… コ ン ピュー タ 

エン タ ァプライ ズの _ コン ピュ— 夕 44 いろいろ な 装置を 制御 


吸^と して、 ク リム ゾンと 戦う にあたって 基本と なる 
を 解説し ます。 基本と いっても 最も 重要な ことです か 
につけて ください。 これを マスター すれば、 この ゲニ 
を 十分に 味わう こと カヾ でき るて  う。 

と フエ ー ザ ーを 使い分ける 

ブライ ズの 兵器には、 光子 魚雷と フ エーザー 砲が あり 
. 光子 魚雷です が、 これは 一種の ミサイルと 考えられ 
夕 — ブライ ズ から 敵に 向かって 一直線に 飛んで 行く の 
; 二 いる 敵に 向け 発射す ると、 光子 魚雷は 星に 当たって 
, また、 発射 角度を 正確に 設定し ない と 速くに いる 敵 
り、 当たり ま せん。 しかし、 光子 魚雷は フエ ー ザー砲と 


L ニット、 光子 角、 雷 か 3 発 残って いたと 
い/ ンと 戦って にいって 勝てる わ 


でで てく る ハイテク ニックで も 使わない 
無駄と いえる でしよう。 判断を 誤って 苦 
きには、 もう 遅い のです。 

そ； 作ね いうの も、 こちら 側が 弱くな っ 
クリム ゾンが ワ―プ し て 来て 戦線に 参加 
『3 機の クリム ゾンを 相手に 戦って t 功; 
になって いた。 j という こと も あるので 
無駄 だと わかったら 何も 考える ことは 
いのです。 撤退 も 戦略の 丨 つなので すか 


& 編では ク リム ゾンに 勝つ ための テ 


エー ザ- 5 包は レーザ-光線 のよ 
稍 度が 高い ので、 星の 影に なつ 


また、 たと え エネルギーが なく ならな かっ: た としても、 す ぐ 次の 
クリム ゾンの 攻撃に 耐え られな く なって しまいます。 その上、 敵 
力够 数の 場合、 エネルギーは それぞれの 敵に 均等に 分けられて 発 
射さ れ てし 秦 いますので、 敵が たく きんい ると き には 効果が 薄く 
なります。 これを まとめる と、 敵が 多い 場合 や 敵 ま での 閜に障 塞 
1 を 使って エネルギーの 浪費を 押さえ、 

! うように します。 つまり、 光子 魚雷は 


が 無い 場合には、 味 
フ エーザー 砲は 補 & 


參 敵からの 攻擊を 防く 
敵からの 攻擎も 光子 魚雷と フエ ー ザー砲が あり ます。 フエ ー ザ 
は 前述の通り 確実に 命中す るので 防ぎよう が あり ません。 し 
か U 光子 魚雷なら かわす 方法が あり ます。 その 第 I の 敵の ミス 
で 光子 魚雷の 弾道が それて 当たらない 場合です 0 しかし、 これは 
滅多にない ことで しょう。 第 2 は 敵の 光子 魚雷が 星に 当たった 場 
合です。 第 3 は 敵の 光子 魚雷が 違う 敵に 当たる 場合です。 第 4 は 
エンター プライ ズか游 動し て 敵の 光子 魚® を かわし た 場合です。 


して、 最後は こち らの 光子 魚 蕾 マ 
•まった 場合です。 それでは、 戦 W 


ンノ り レス ン を 使用し て 敵から 見て 星の 影になる 位 置 に 移動 
します。 この 移動が 基本 戰 略の カ ギ となります。 つまり、 敵との 
位置 関係が 非常に 重要な のです。 こ れで 敵の 光子 魚雷は 星に 当た 
り， エンタープライズは とりあえず ダメージを 受けません。 しか 
し、 必ず 星に 当たる とは 限りません し、 星が なくなって しまえば 
何にもな りません。 つぎに、 敵* 洗 子 魚雷を 発射した 令、 すぐに 
移動して 敵の 光子 魚雷を かわす ことです。 このと き'  イン パルス 
エンジンを 起動す るのに 多少 時間が 必要です から、 ク リム ゾンが 
あまり 近くに いると 間に合いません。 また、 インパル^ t ン ジン 
の 進む 角度を あらかじめ 設定して おく と 時間を 節約で きます。 最 
後に、 こち らか らも 光子 魚雷を 発射して 敵の 光子 魚雷を 迎擎 しま 


すが、 光子 魚雷は I 発に つき • 


ごが 直接 ダメージを 受けな く 
い 她 江 ニッ トの 破壊力が 岁 


ま T。 陬の 強？ か 止 嫌に わかれは、 光子 魚 笛 や フエ ーサ ー個を 無 
駄 使いせ ずに 済みます。 

敵の エネルギーを 知る センサーを 装備して いますが、 ク リム ゾ 
ンカ 僻に 強 過ぎたり、 弱 過ぎたり した 場合は 未 確認に なって しま 
います。 では、 確実に 敵の 強さを 知る 方法は ない のか、 というと 
I つ だけ 方法が あります。 

それは、 フエー ザ ー 砲を 発射す る ことです。 フエ ー ザ ー 砲を 発 
射す ると、 敵の シール ド エネルギーから ダメージを 計算す る 装 置 
を エンタープライズは 装備して います。 そこで、 フエ ー ザー^を 
拭 射して みます。 エネルギーは 200 ユニッ ト 程度で 良いで しょう。 
各ク リム ゾ ンにフ エーザー 砲を 発射し、 その 残り エネルギーを 表 
示して いきます。 

參 ベースを 守れ 

鍛可系 内には 惑星 連 補給 基地、 っ ま_ ベ— スがい く っか股 
営され ており、 エンタープライズは そこ で エネルギーの 補給を 行 


図一 4 


匱 要な ものと いヌ 


戦闘力を もってぃません。. 

図 4 のよう に エンタープライズ ¥ 多 リム ゾンの 問に ベースが ある 
と、 クリム ゾンの 光子 魚雷が ベース に当たって しまし 趨 壊されて 
しまいます。 また、 誤って こちらの 光子 魚雷が 当たっても 破壊 さ 
れ ます。 当然、 ベースは 限られた 数し かないめ で 土ン ター プライ 
ズ にと づ孓、 非常に 大き な ダメージになります。 

です か％、 ク リム ヴンと エンタ^ ブライズで ベースを 挟まなぃ 
よう にしなければ なり ません。 

參 シール ド エネルギーの 割合を かける 

エネルギーと シール ド エネルギーの 割合は コン ビュー タ によっ 
て 制御して おり、 ゲーム スター ト 時は 50% に殺定 されて います。 
つまり、 エネルギーと シール ド エネルギーは コマン ド 待ちに もど 
ると き、 っねに 等しくなる ように 賊^され ている のです。 しがし、 
敵が 非常に 多ぃ とき や、 エネルギーが 少なく なって しま った とき 
などは、 シールド エネルギーが 不足して しまい、 敵の 攻擎に 持ち 
こたえられ なくなって しまいます。 このと き、 シールド エネ ルギ 
一の 割合を 增 やすこと によって シール ド エネルギーを 強化す る こ 
とがで きます。 ただし、 エネルギーと シールド エネルギーは |〇〇 
0£& 二^/卜 以上になる と カット されて しまう ので 股定 する 場合に 
は 注意が 必要です。 

籲 エネルギーが 無! く な フ たら …… 

どんなに テクニックを 駆使しても、 エネルギーは 少しずっ 滅っ 
て いきます。 ベースに 行けば 補給で きます が、 ペースに 行く まで 
の エネルギーを 少し 補給したい とか、 もう ベースが 無くなって し 
まった というと き には、 ベース 以外の ものから エネルギーを 得る 
方法が あります。 

まず、 光子 魚雷を エネ ル ギ-に 変換して しまう こと です。 m- 
魚雷 I 発から 500 ユニット の エネルギーを 得る こと がで きます。 
光子 魚 蕾の 破壤 力は 700 ユニット ですから <  I 発 変換す るのに 
200 ユニッ トの ロスが 生じる ことになります。 

っぎに、 まわり の 星から エネ ルギー を 補給す る ことができます。 
もちろ, ん、 ただで 補給で きる わけでは なく、 星から エネルギーを 
吸収す るた めの 時間を 消費し ます。 補給され る エネルギーは 時 問 
に 比例し ま すが、 星が 多ぃ ほ ど 吸収 効率が 良くな り ま すか fe、 ス 
ペー ズマ ッブや ロング レンジ センサーで 近く の 星の 多い、 しかも、 
クリムゾンの いない クオ ド ラントで 補給す るよう にします。 しか 
し、 時間を 消費し ますので、 あまり 使う ど 時 IBJ 切れに なって fc ま 
います。 この 装置を 起動す るのは、 いざと いう It 常時 だけにし ま 


謹では、 すべての ク リム ゾンを 倒す ために 必要な テク ニッ 
クを 説明し ましよう。 しかし、 これを マスター' したから といって、 
I。 あとは あなたの 艦長と しての 腕 


必ずしも 月 
にか か っ_ 


、にか かってい: るので す。 

參 _ を かけろ 

ク リム ゾン の攻擎 には一 


グンの 攻擊 周期を う まく 利用して 敵に _を かける 
ことができます。 敵の いる クオ ド ラントに 行く と、 普通は クリム 
fc に攻擎 してきます。 しかし、 クリム ゾン の攻擊 周期の 
汽 •と、 こ ちらから 先に 攻擊を 仕掛ける：: とが あ 


もっ と 具体的に 説明 しまし ょう。 敵と の 戦 鬪力资 わる と、 自動 
的に 通常の モードに も-どり ます。 このと きから、 約 0.3 宇宙 時間 
後に クリムゾンからの 攻撃が あるので す。 て* すから、 すぐ ワープ 
エンジンを 起動して、 ワーブ 速度を 8 から 12 f らいに 設定し'  ク 
リム ゾン のい る クオ ド ラントに 移動し ます。 ワープ 速度 8 で 移動 
するとき の 所用 時間は 0.1 2 宇宙 時閜 ですから、 ワーブ 速度 8 以上 
でク リム ゾン のい る クオ ド ラントに 行ぐ と、 こちらから、 先に攻 
擊 できる ことになる わけです。 

この 奇 期を うま く 使えば、 エンタープライズ カ徘 常に 有利に 戦 
うこと がで きます。 なぜならば、 クリム ゾン か*^ 孿 してく る 前に 
クリムゾンの 強さを 知り、 適当な 所に 移動して から ク リム ゾンと 

の 同士討ち 

も 光子 魚雷と フエー ザ によ って 攻擊 してきます 
I くな ってく ると 光子 魚雷を 発射して きます。 クリム 
D 見境な く エンター ブライズの 方向に 光子 魚雷を 発射 
する ので、 その 方向に クリム ゾン がいる： と 、クリム ゾンの 発射し 
た 光子 魚雷が クリムゾンに 当たって しまいます。 当然、 光子 魚雷 
を 当て られ たクリ ムゾン ばダメ ージを 受けます。 

たと え ば、 図 >5 のように ク リム ゾン が一 例に 並んで いた としま 
す。 クリムゾンは 左上に いる 物から 順に 攻擎 してく るので、 まず 


m-5 


戦える わけで ず か $ 
クリムゾンの 同;！ 
クリムゾン も 孕 
に 弱く  4 
/ ンは 前後の 見ぢ 


會 同志 肘ち を さそえ。 

一番 左の クリム ゾンカ^ •魚雷を 発射 します。 すると、 その 右の 
クリムゾンに 当たり ダメージを 与え、 弱った ク リム ゾン はさら に 
光子 魚雷を 発射 します。 すると、 さ らに 右の クリ ムゾン に 当たり 
ダメージを 与えます。 

この 繰り返しに よって、 連鎖反応 的に クリム ゾンは 同士討ちに 
よって 破壊され ていく のです。 しかし、 一番 左の ク リム ゾンが 光 
子 魚雷を 発射し なければ 何にもな りません。 フ エーザー 砲を 使っ 
たのでは、 その クリムゾン のみを 攻擊 する ことは 不可能です。 こ 
の 状態での 得策は、 一度 イ ン パルス エンジンを 使用して 左上へ 移 
動し、 — # 左の ク リム ゾン にだけ 適 置の 光子 魚雷を お見舞い する 
ことです。 そして、 すぐに •もと の 位置に も-どって しまえば 良い の 
です 0 

しかし、 いつも このように ク リム ゾンが 症んで いるとは 限り ま 
せん 》 夕1 i? 洛ゾン が 比較的ち らばって いると きは、 まず ク リム ゾ 
ンと クリムゾンの 間に _ します。 そして、 いつでも 移動で きる 
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DEFFNE<E)=E/62.5+75 

1130  CLS： LOCATE  3,7s PN=50 : PM=300 SPRINT'  How  Many  KLIMZONS  ( 30-300 )? ' { ： GOSUB2950 
<L=PN：IFKL<30THEN1130ELSELOCATE11,9：PRINTE$+'  GO! * : KK=KL 

1140  A=RND( -T I ME)： GOSUB3730 : U=KL/ • 8 : W0=W- • 3 : M=430 : E0=50 : MP=0： BA=INT<KL/12)+1 ：D$ 
' DESTROYED ! ' 

1150  RESTORE2940 : FORT= lT08：Q(T)=U：U(T)=U-2.5： RE ADC 车 (T)i FORR= 1 T08 : L ( T , R ) =FNR ( 8 > + 
0000: NEXT  R,T»K=KL 

1160  T=FNR (8)： R=FNR (8)： A=FNR ( 5 > : L=L ( T , R > : I F I NT ( ( L- 1 0000 ) / 100 >  +A >9  THEN1 160ELSE I 
«ATHENA=K 

1170  L=L<T,R) s IFINT( (L-10000)/100)+A>9  THEN1160 
1180  L(T,R) =L+A*100： K=K-A：IFK >0THEN1 160ELSEFORB=1TOBA 

1190  T=FNR (8)s R=FNR (8):1 FVA し < LEFT 车 < R I GHT$( STR$< L(T,R) ) ,2) ,1) ) THEN1190ELSEL < T • R > 
L(T,R)+10：NEXT 

1200  XX=FNR (8)s YY=FNR (8): X=FNR (8): Y=FNR ( 8 〉 ： CLS : GOSUB2570 : L=L(XX,YY): GOSUB1800 : G 
TO1750 

1210  GOSUB  1220:GOTO1350 

1220  I FQ ( 4 ) < UTHEN1330ELSES ( X , Y )=1 : LOCATE  3,14sPRINT'l  2  3  4  5  6  7  8' | jF0RT=1T08 
LOCATE0,T+14:PRINTSTR$<T)  ■: '  ;SPC(15 厂〆 

1230  FOR  R=1T08 j IFS< T , R )=0THEN1290ELSES=S< T , R ) : LOCATE  R*2+l ,T+14: IFS>6THENPRINT 

<' ：GOTO1290ELSEIFS<0THEN1280 

1240  ONS6OSUB1250 , 1260, 1270, 1280： GOTO1290 

1250  IFINT(X+.5)=T  AND I NT ( Y+ . 5 ) =RTHENPR I NT ' E 1 J RETURNELSE1280 


1300  F0RPT=9T013  s  LOCATE0 , PT : PR I NTSPC( 39 ) ; s  NEXT  s  LOCATE0 , 9 : RETURN 
1310  LOCATE0 , 10 : PR I NTSPCOl) +CHR 幸 (13): L0CATE3 , 10 : RETURN 
1320  LOCATE I NT ( L+ • 5 ) *2+1 , I NT ( S+14 • 5 ) : RETURN 

1330  F0RT=1T08 : L0CATE3 , T+14 i PRINT 1 ?  ??????  ? ' : NEXT : L0CATEY*2+1 , X+14 ： PR I NT" 

1340  PR I NT ： I FA$< > ' r " ANDPN< >0THENPLAY ' o7a4 ' ： PR I NT '  Too  BIG ! (MAX'PM" ) ' jPRINTSPC(3 
)：G0SUB22ie 

1350  FP=45： PM=360S F0RT=1T03 : I FW-U(T )<2. 5THENU(T) =U-2.5 

1360  NEXT »E=E+E1:E1=E*E0/100：E=E-E1: GOSUB2210JIFE<0ORM<0ORW<0THEN2620ELSEIFU<U0 

THEN  I F V  >0THEN3050ELSEU0=W- . 3 

1370  I F V=0 THENGOSUB20 30ELSE I FC< >5THENGOSUB1960 

1380  I FQ ( 4 ) <  UTHEN60SUB 1330 

1390  IF  RND(lX.02+(430-M>/699  THENGOSUB2460 
1400  LOCATE0 ,9:1 FKL< 1THEN2660ELSE I F I NKEY$<  > ' _THEN1400 
1410  GOSUB1300 i PLAY ' vl5o6c24 ' : PR I NT "COMMAND? _ ; : C=5:PC=5 
1420  U=U-lE-03: IFU<U0THENIFVTHEN3050ELSEW0=U- . 3 

1430  C$= I NKE Y$ i PC=ST I CK ( SK ) : I FSTR I G <  SK ) <  >0  OR  C$=CHR$< 13)THEN1480  ELSE  IFPC=0TI 
ENIFC$=' ■ THEN1420ELSEC=ASC< C$ ) -&H30  ELSEC=C+< PC=7)+< PC=5 )-<PC=3)-(PC=l ) 
ldd0  GOSUB2210 : U=U- .01: IFU<0THENU=0 : GOTO2620 


C く  1 THENC=8ELSE I FC  >8THENC= 
AY* 06V13C64V15 ■: L0CATE9, < 
ft Y ■ 07C64 ■ : I FQ < C K WTHENT2: 


WC  )<WTHENT2=C:  G6sUB2480:Gof6iib0 


3  ONC  GOTO 3050,305 0,2120 ,1210 ,2020,1510,1670,1910 

し 穿 ぱ はば 涊ば盟 〖N 巧： 盟 益! 组 ⑦忠。 qr()>360t 
盟盟 i は1: PM=99:PRINT,SECTC>R?、 •FP=2  =  GOSUB29501FP=45!T*=A*!T=VAL(T*) :  I 

3  U=U-T*.02： E=E-T*3 : W( 3 〉=W( 3 〉-T* • 25 : B1=0 
3  IFT>1ANDOMOD45=0ANDOMOD90< >0THENT=T+1 


B：IFX>8. 4THENX=1 : L=180： GOTO1620ELSEIFX< . 5 


:顒ポ ，遄盅 品; 謚^ ぶ 沿喆が 

1  X=INT(X+.5):Y=INT(Y+.5)：S(X,Y)=1:GOTO1210 


Z1=T-T1:Z2=0:0=L 心: 1;“：： ル：; 心；:^; INT(Y+.5> 

X=X+B : Y=Y-A : GOTO1610 

GOSUB2890 ： PRINT' DANGER !  EMERGENCY  STOP ! •: GOTO1650 

ぽ 益! “啟 だ 说盎盅 ぽ蹯 巧嗌 S0>360THEN13 


1  PRINTjPRINT'USE  ENERGY  IS，T*SE*128,  at_, 

1  PRINTINT(<1/SE)*100)/100*  TIME •: L0CATEY»2+1,X+14:PRINT_  ■ 

1  S=XsL=Y：GOSUB1770 

1  GOSUB1220 : GOSUB2140 : IFQ<  8  KUTHEN1350 
IFV>0THEN1950ELSE1350 
L(XX,YY)=V*100+H1*10+H 

GOSUB2510 : F0RT1=1T0T: XX=XX-B： YY=YY+A： NEXT 
XX= I NT ( XX+7.5) M0D8+ 1：YY=INT< YY+7.5) M0D8+1 
IFL(XX,YY) >9999THENL ( XX , YY ) =L ( XX ， Y Y ) - 10000 

k7Li2J；1Y!)iFORT=1TO8sFORR=1TO8{S<T*R)=0{NEXT 

S1=INT( L/100) { S2=INT(L/10 )-Sl*10: S3=L-S1*100-S2*10 : V=S1 
S<  X ， Y )=1 : IFS1=0THEN1850ELSEFORA=1TOS1 

00?nextIlsenextR)=RND<1>*RND<1)*3000+999sIFRND<1><,02THENS<t,r>=s<t>^ 

i 尨; 鼦 

V=S1 : H1=S2： H=S3j RETURN 

T=FNR (8): R=FNR <8)：IFS<T,R) THEN1880ELSERETURN 

品 ぼねば ぽ谍浞 說诺 媼? ^PN=1:PRINT_MMPUTER 」°B?. !  !PM=a^P=2:G0SUB 

ONPN6OTO1950, 2000 ,2010, 2070 
GOSUB1300jPRINT:PRINT':1  ENERGY  OF  KLIMZONS" 

PRINT: 2  SET  SHIELD% ■ 

PRINT' :3  TORP  to  ENERGY' 

PRINT" :4  GET  ENERGY  FROM  STAR' ： 60 101890 


1960  LN=0s  F0RT=1T08：  F0RR=1T08  ••  I FS  ( T ,  R  >  <  6THEN1990 
1970  LOC ATE19 , LN+14 ： PR I NTR ； -T '  • • • • ; :LN=LN+1 


1980  I  FS  <  T ,  R )  >5000ORRND  (IX.  03THENPR I  NT '  ????':  ELSEPR I  NT  I  NT  ( S  ( T ,  R  >  > , 

1990  NEXT： NEXT {RETURN 

2000  PN=E0 : PM=75 : GOSUB1300  SPRINT'  SHIELDS  (1-75) '  ；  sGOSUB2950s  IFA$=  V0RPN>?5THEN 
1340ELSEE0=PN： GOTO1350 

2010  PN=lsPM=I:GOSUB1300 SPRINT'  HOW  MANY  (500unita/TORP)  ? '  ；  ： GOSUB2950 : 1 FA$=  VO 
RPN>I THEN1340ELSE I=I-PN： E=E+PN*500 : GOTO 1350 
2020  GOSUB2030：GOTO1350 

- -  ‘4:PRINTSPC(20〉：FORT=1TO8 


2050  I  FT=60RT=7THENPRI  NTUS I NG  •  ###°  C  • ;  ( UI-UI  ( 9 - T)>  *10 ; :  PR  I  NT  ■ 


' ；ELSEPRINTSPC<8) 


H=0THENPRINT_NO  STAR ! •: GOTO1350 


2070  IFH=0T.._ - - - - - - 

2080  PN=1 : PM=10 : GOSUB1300 SPRINT" HOU  MANY  TIMES' J ：6OSUB2950 ： IFPN<0ORU<PNORPN>10TH 

2090  E=E+PN*64*H : U=U-PN ： PR I NT 

2100  PRINT  '  CHARGE  ENERGY  IS  'PN*64*H'  UNITS ■: GOTO 1350 
2110  PLAY_V1506A2_  t PRINT'  OVERHEAT! ! • : GOTO1350 
2120  GOSUB2130：GOTO1350 
2130  U=U- . 1 

2140  IFQ(3XUTHENRETURNELSEF0RT1=XX-1T0XX+1：F0RR1=YY-1T0YY+1：T=T1：R=R1 
2150  T=(T1+7)M0D8+1: R=( Rl+7 〉M0D8+1 


2190  NEXTRJi,TJJ：GOTO1310 
2200  I  FT?i=XXANDRJi=YYTHENPR  I  NT"  0  0  □•い  RETURNELSEPRI  NTUS  I NG  •###■;  L2 RETURN 
2210  S$=STR I NG$ ( 8 , 29 〉 +CHR$ ( 31 ) : I FE >9999THENE=9999ELSE I FE<0THENE=-1 
2220  IFE1 >9999THENE 1 =9999ELSE I FE 1 <  0THENE1 =- 1 

2230  LOCATE31,0：PRINTUSING'  *.EN  ####•  }E；  jPRINTUSINGS$+*  ：SH  ####'{  E 1 PR  I  NTUS  I  NGS$ 
+■ : KLI  ###' }KL； : PRINTUSINGS$+' :CRE  ###' ；M; 

2240  PR I NTUS I NGS$+ •: T I ME### ■ ; U ; : PR I NTUS I NGS$+ •: TORP  ##';I;：PRI NTUS I NGS$+ •: BASE## 


r;BA; 


2250  LOCATE31,7:IF  V< >0  THEN  PRINT' RED 
' ELSE  IF  HI  THEN  PRINT" : -BLUE-' J  ELSE  PRINT*  r 
2260  RETURN 

2270  G0SUB2386 X TM=FNR (8)： RM=FNR (8) J IFS<TM,RM)< 60RS ( TM , RM ) > 1000ORMD=0THENRETURN 
2280  I NTERVALOFF? FX=TM : FY=RM : PUTSPR I TE8 , ( FY*16+8 , FX*16+32 ),8,6： GOSUB4030 : A$=STR$ 
(RM)+STR$(-TM)+,  '+KL$+*  ' 

2290  SM=S(TM,RM) ：S<TM,RM)=0 

2300  OM?{=FNR <3)-2:  PM《=FNR ( 3 〉 -2 : 1 FOM《=0ANDPM?J=0THEN2300ELSETM=TM+OMV •:  RM=RM+PMJi 
2310  I FTM< 10RTM  >80RRM< 10RRM  >8  THEN2340 

2320  IFS(TM,  RM  )THEN2340ELSEFORKM?J=1TO16  ：  PUTSPR  I TE8 ,  <  FY*16+8+PM《*KM •ィ， FX*16+32+OM5i 
,8,6: NEXT 

2330  A$=A$+"MOVE  ' : XP=RM*16+8 i YP=TM*16+32 : 6OSUB3910 : GOSUB3420 : GOSUB4090  s S< TM , RM ) 
=SM : I NTERVALON： RETURN 

2340  GOSUB3420 : A$=A$+' WARP ! •: GOSUB4090： PLAY  _  S7M 500003 C3 ■ . 

2350  TM=FNR(8):RM=FNR(8)： I FXX=TM AND Y Y=RMTHEN2350 
2360  LM=L(TM,RM)： IFLM<9999THENLM=LM+10000 

2370  IFLM>10899THEN2350ELSEV=V-1 : L( TM , RM)=LM+100： I NTERVALON： RETURN 
23801 FRND (IX E/99999 !+. 70RV >8THENRETURN 

2390  TM=FNR (8)： TM=FNR (8):1 FTM=XXANDRM=YYTHEN2390ELSE I FS ( TM , RM 〉 THENRETURN 
2400  IFL(TM.RM) >99990RL (TM.RMX 100THENRETURN 
2410  PLAY ■ S7M 699903 A3 ■ : I NTERVALOFF 

2420  IFMD=0THENLOCATERM*2+1 , TM+14 {PRINT'K" ELSEXP=RM*16+8: YP=TM*16+32： GOSUB3910 
2430  V . . —— 一 - - —— 


ELSE  IF 
-GREEN-*; 


E<1000  THENPRINT" t* YELLOW 


：0  V=V+ls W=W+1 : S ( TM ， RM 〉 =RND(1) *4000+999 


2440  L(TM,RM)=L 

1eI?sSb?300?Pr|S^$?RETURNT  '+KL$+'  • +STR*( RM ) +STR*< -TM ) : US，0 i I FMD=1THEN4100EL 

!iLI?li^Sf^?^^*<iNI<iy-?iT?2>*i®0>^0®>+，tim.-：IFMDaiTHENGOSUB 4090,1 P! 


A=SIN( 0*3. 1416/180): B=C0S(0*3. 1416/180): RETURN 


S00  IFY<DYJiTHENUA=-UA 

S10  UA=UA/6 : UB=UB/6 : RETURN 

S20  GOSUB1300:T$='T110V9O5, jPLAY  T 车 ，丁 车 ，丁 车 

S^R^^；^li^il^^t^^i^|«^|^^^32R32C2---L1^8^^^R16A32R32A2G8GR 

>50  PRINT*  " E$ ； D$ : PR I NT : GOTO2720 

!a!l0U6Vt?50vl0??Iy!?tl§8^8T8?288rl6rl6°39l6rl6o2sl6rl6o8r8o3°rl6r8'^ 

>70  G$=  '  r 4.04 .Hr-ftr-1  Ar'/lrlr-l  A^~a  ■ 


dr8rl6r4drl6r8' 
8rl6rl6o3crl6o2c 
cr8rl6r4crl6r8" J 


:o5g«cr^LMPWPp2*Cp!iG1*+G1$+C1*!  P3$=M+' f » »e—*2  _  1 PWYP1* ,  P2* ,  P3* :  P3$=A$ 
巧 ば： ^oU^--r!：0^NTERWL；5G0SUB 2730 IINTERVALON^ 


1111  5  !ONINTERVAL=5GOSUB2730：INTERVALON 

IHSntSE も 

ip  t*.t*,t* 

2770  T$='S12M 600051120 L4' : PLAYT 车 ,T$,T わ PLAY.C+. , _G. ， _B_ 

2790  REM 

2800  SOUND7,0 {SOUND 8，15 

r®  >  ?RNDa  1STEP10  s  SOUND0,SO{  S0UND6»  INT(S0/8)+l:  IFUS=1THENPUTSPRITE1 , (EXSS.E 

N|^S0UND7 , &HF8： SOUND8 , 0 * IFUS=1THENPUTSPR ITE1,<EXJS ,EY^),15,1 
>840  REM 


2950  IFSTRIG(SK)THEN2950 

2960  PK$=" • : PX=POS  <  0 ) s  PY=CSRL I N  s  P I =1 ： PLAY  *  V1505C6406C64 ' : PU=0 
2970  LOCATEPX ,PY：I FPN く 0THENPR I NT • QU I T • ELSEPR I NT I NT ( PN ) ; • ' 

2980  PS=ST ICK(SK): I FSTR IGtSKX >0ORPK$=CHR$ (13) THEN3040 

2990  PK$=INKEY$：IF  PK$>='0 * ANDPK$<  =  '9,  THEN  PN=PN*PU ： PU=1 ： PK=VAL < PK$ ) : PN= I NT < PN ) 
* 10+PK : I FPN >999THENPN=VAL(RI GHT$ ( STR$ (PN),3)) 

3000  I FPK$=，-' THENPN=0ELSEI FPK$='Q, ORPK$=  •  q _ THENPN=-1 : GOTO 304.0 

3010  IF  PS=0THEN  PI=l:GOTO  2970  ELSE  S0UND8, 13:F0RPT=1T0  30/PI: S0UND8 , 0 : NEXT : SOU 

MD8,0：IF  PS=1THENPN=PN+PI :PI=PI+PI/8  ELSE  IF  PS=5  THEN  PN=PN-PI ：PI=PI+PI/8  ELSE 


3050  PLAY _S10M 80006 C2_ , ^+2* : SCREEN  2,2: C0L0R1 , 5 , 9 ： CLS s GOSUB2500 : F0RT=1T06 ： SPR I T 
E$(T)=S$(T)：  NEXT:  OX《=204 :  0Y?J=152：  W=V :  MD=1：  P=100 
3060  FC=C : I FC く 10RC >4THENFC=1 

3070  L I NE ( 0 , 192-9 )-(255,192) ,15, BFi CLOSE： OPEN 'GRP : ' AS#1 ：LINE( 10 ,3)-( 247,32) , 15,B 

- s XP=20 s  YP=184 : C0L0R8 : GOSUB4080 ： PR I NT#1 , ' - FIGHT  MODE - ' : C0L0R1 

3080  XP=18sYP=5  : GOSUB4080 ： PR I NT#1 , ' ENERGY s  * ： YP=14：GOSUB4080 ；PRINT#1 , 'SHIELD： ' ：Y 
3=23:GOSUB4080:PRINT#1, • POWER 

3090  DR$='C8BM=XP?  ,=YP；BD2BF7BGR5EU2E2L4G4L2U2L3GDFR5F2R4H2, :  IFQ(4XUITHENSD=1ELS 
il00  LINE( 165, 48)-(243, 103), 14, BF: COLOR 1： XP=170： YP=51s 6OSUB4080 ：PRINT#1, ' *COMMAN 


_ _ _  -< 243 , 103 ) , 14 , BF t C0L0R1 : XP=170 :  YP=51 : 6OSUB4080 : PRINT#1 , 1  JtCOMMAN 

XP=178：YP=62： 6OSUB4080 i PRINT#!,'- TORPEDO •: YP=71： GOSUB4080 : PRINT#1 , ■ • PHASER'： 
VP=80 : GOSUB4080 ：PRINT#1, ' - MOVE ■: YP=89 : GOSUB4080 ：PRINT#1 , 1 • EXIT ' 

3110  EX《=Y*16+8:EY《=X*16+32:  PUTSPRITE1 , (EXV”EY?0 , 15, 1 

3120  LINE(22*8, 125)-(29*8, 179), 15, BF：CIRCLE(204, 152), 20, 1:PAINT(204, 152), 1,1 
3130  GOSUB  3770 { PUTSPR I TE2 , ( 204-8, 152-9 ),10, It 0=FC <FC>： 6OSUB3860 
3148  I FSD=1THEN3200ELSECOLOR15 S XP=30 : YP=38 : GOSUB4080 : PRINT#1 , ' 1 2  3  4  5  6  7  8'：F 
DRT=1T08： XP=3： YP=T*16+36： GOSUB4080 :PRINT#1,T： F0RR=1T08 : IFS( T , R)=0THEN3190 
3150  B=S( T , R ) : XP=R*16+8： YP=T*16+32 


3200  GOSUB3700： INTERVAL  OFF： ON  INTERVAL=12  GOSUB  3990 S INTERVAL  ON： ON  STRI660SUB4 
3 60 , 4060 , 40 60  J  STR I G ( SK ) ON ： I S=- 1 

3210  GOSUB  4140 ； GOSUB2270 : COLOR , , FC+7 1 IFV=0ANDW<  >0THEN3680 
3220  IFE<0ORM<0ORW<0THEN3690 

3230  IFISTHEN3210ELSE  STR I (3 (SK) OFF: INTERVAL  OFF : ON I NTERVAL=9999GOSUB4130 ： US=0 : GO 
SUB3370 

3240  I F ( FC く 3ANDQ (FCXU)OR< FC=3ANDQ (6XU) THENT2=FC- (FC=3)*3： 6OSUB2480 : GOTO3200 
3250  FC=F0 tONFCGOT 03260 , 3440, 3490, 3680 

3260  COLORlsIF  I<1  THEN  A$=_  NO  TORPEDO ! ' s GOSUB4090 : GOTO3200 
3270  IF  JF5i=l  THEN  3200 

3280  CNJ{=0 : JX=X: JY=Y : JObFC (1)： 0=J0? JF*4=1 : GOSUB2520 : JA=A/3： JB=B/3 : PLAY •  06A64' 


3290  I=I-1:A$=*  TORPEDO  LEFT: ，+STR$< I ) :GOSUB  4090 
3300  GOTO  3200 

3310  JX= JX- JB : JY= JY+ J A 1 1 F JX  >8 . 40R J Y  >8 . 40R JX< .50RJY< .5THEN3360 
3320  PUTSPR ITE4,( FNX <  JY>  ,FNY(  JX) ) , CN2M0D13+2 , 3+FPM0D2： FP=FP+1： CN5{=CNJi+2 
3330  IF  ABS(UX-JXX.2  AND  ABS(UY-JY)  <.2AND  UF?{=1  THEN  US=0 ：GOSUB2790 ：GOS 
GOSUB3390 :  UFJJ=0  i  GOTO3360 

3340  IFS<  INK  JX+.5) ,  INK  JY+.5)  )<2  THENRETURN  ELSEJF5{=0 


3940  FX=UX：FY=UY 

3950  GOSUB  2760  s  GOSUB3980 : A$=STR$  <  FY ) +STR$  C -FX )  + '  *+KL$ 

3960  S( FX , FY )=S< FX , FY >-P2 s IFS( FX , FY X 6THENS (FX,FY)=0： V=V-1： KL=KL-1 : A$=A$+D$: GOS 
2790 : GOSUB4030ELSEA$=A$+ '  DAMAGE! 1 +STR$( INT(S<FX,FY) ) )+'  LEFT' 

970  GOTO  4090 

980  FORZO=1TO30 : PUTSPRITE8 , ( FY*16+8, FX*16+32 ),RND<1 ) *14+2 , 6 : NEXT： GOTO3420 

990  ST2=STICK(SK〉：IFST?{=10RSTJJ=5  THEN  GOSUB4040 : FC= < FC- ( ST4=5 )  +  ( ST?i=l  >  +3 ) M0D4-* 

GOSUB3830 

000  IF  JF^=1THENGOSUB3310 
010  IF  UF《=1THENGOSUB4250 
020  PUTSPRI TE3 ,(167, 51+FC*9 >,12,2： GOTO 3810 

030  LINE( FV*16+8, FX*16+32)-< FY*16+23, FX*16+47 ),1-( SD=1 )*7, BF: RETURN 
040  SOUND0 ,  30 : SOUNOl , 0 : S0UND8 , 15 
050  SOUND8,0 {RETURN 
4060  IS=0：F0=FC 

4070  SOUND4.40: SOUNDS, 0s SOUND10.15： F0RS0=1T02： NEXT： SOUND10.0： RETURN 


0  IS=0sF0=FC 
0  SOUND4,40:SOUND5,0:SOl 
0  PSET(XP,YP),POINT(XPO 
0  I FUS=0THEN I NTERVALOFF 
0  LINE(255,191)-(0,192-< 
0  COLORl：PSET(l, 192-8 


4110  COLOR 1 : PSET(1, 192-8 ),15： PRINT 轉 1 , A 车 
4120  IFUS< >0THENRETURNELSE INTERVAL  ON: RETURN 
4130  RETURN 

4140  I  FF3= 1  ANDUF?J = 1 THEN6OSUB4250 
4150  IFF3=1ANDJFJ4=1THEN6OSUB3310 

4160  DXJJ=DX?J+1  J  IFDX?{>8THENDXJS=1： DY?J=DY?{+1：  IFDY?i>8THENDYJ{=l  s W0=U-.3： U=W-.l 
4170  IF  S(DXJ{,DY?{)<6  THENRETURN 

4180  S1=S(DX?{,DYJ{)：IFS1<30THENRETURNELSES1=S1/<RND<1  )*6+4 )：S<DXJ{,DYJi)=S<DXJ{,DY!! 
-S1：IFS1<150THEN4230 

4190  D1^=DY? {: D2?{=DXJ {: D3^=EX5{+8： D4J{=EYJJ+8： COLORlsLI NE( FNX ( D1  JO  +8 , FNY< D2% )+8)-(EX 
+8,EY?i+8),8:US=0 

4200  GOSUB4330： GOSUB  2740 ：A$='  HIT  1  +STR$ < DY )  +STR$ < -DXJ{ )  + '  ,+KL$+"  ,+STR$(INT( 
DJ  +  'units' :  GOSUB4090 :  US=0 

4210  LINE(FNX<DUO+8»F(NY<D2J5)+8)-CD3JS,D4J5>il-<SD=l)t7 


RETURN 

4250  UX=UX+UB : UY=UY+UAjI FUX  >8 • 40RUY  >8 ♦ 40RUX< . 50RUY< . 5THEN4310 

4260  PUTSPR I TE5 , ( FNX  <  UY ) , FNY  <  UX ) ) , 1 1 , 3+FTM0D2： FT=FT+1 

4270  I FABS  ( UX-XX.  5ANDABS  ( UY-YX.  5THENUS=1 : GOTO4290 

4280  I FS ( I NT ( UX+ . 5 〉 ， I NT ( U Y+ • 5 〉 ） く 2  THENRETURNELSEUS=S (UX+.5.UY+.5) 


4320  GOSUB2790 i Sl=700 i A$= '  HIT  ,+KL$+,  TORP  DAMAGE  79Qun i t ' : GOSUB4100 : GOSUB4330 
SOSUB3710： RETURN 

4330  E1=E1-S1 : IFE1<0THENE=E+E1 ：E1=0 5ELSERETURN 

1340  A$='  SHIELD  OVER ! ' : GOSUB4090 : GOSUB2790 s M0=FNR < 20 ) ： M=M-M0 : A$=STR$ < M0 )  + '  KIL 

ED!  C +STR$ ( M )  +  • LEFT 〉■ : GOSUB4090 : 1 FRND (IX. 2THENRETURNELSE2460 

4350  RESTORE4670 : F0RZ=1T06 ：S$="j F0RT=1T032： READA$： S$=S$+CHR$ ( VAL( ,&H'+A$) ) 

4360  NEXT ：S$(Z)=S$： NEXT： I FPEEK (-2^15) =65THENA=USR ( 0 )ELSERETURN 


